home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 4 / 64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_B.d64 / spion iii (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  4KB  |  72 lines
  1. 200 poke53280,0:poke53281,0:print"[147]":poke53272,23
  2. 210 printtab(8)"[211]pion [201][201][201] ([196] 2 [205]ission)"
  3. 220 printtab(9)"[159]von [211]teffen [199]oebbels"
  4. 230 printtab(15)"(c) 1985"
  5. 240 printtab(7)"ca. 1:15 [205]in. [204]adezeit."
  6. 250 print"[158][194]itte lassen [211]ie die [198]loppy angeschaltet"
  7. 260 print"[144]poke4096,0:poke44,16:new"
  8. 270 print"load"chr$(34)"d.2"chr$(34)",8[145][145][145][145][145][145][145]"
  9. 280 poke631,13:poke632,13:poke633,82:poke634,85:poke635,78:poke636,13:poke198,6
  10. 900 rem *** sid initialisieren ***
  11. 910 s=54272:fori=stos+24:pokei,0:next
  12. 930 poke53245,1:poke53246,1:pokes+5,96:pokes+12,9:pokes+19,0
  13. 940 poke53247,1:pokes+2,0:pokes+9,255:pokes+16,0:pokes+13,140:pokes+20,240
  14. 950 pokes+6,100
  15. 999 rem ** maschinenprg fuer musik **
  16. 1000 data174,255,207,202,142,255,207,240,21,174,254,207,202,142,254,207,240,83
  17. 1010 data174,253,207,202,142,253,207,240,71,76,49,234,32,66,196,169,0,141,4,212
  18. 1020 data173,250,207,174,251,207,172,252,207,141,1,212,142,0,212,140,255,207
  19. 1030 data234,234,169,33:rem_wellenf.s1
  20. 1040 data141,4,212,76,9,196,162,0,189,0,198,157,250,207,232,224,3,208,245,24
  21. 1050 data173,69,196,105,3,141,69,196,144,7,174,70,196,232,142,70,196,96,76,167
  22. 1060 data196,32,135,196,169,0,141,11,212,173,250,207,174,251,207,172,252,207
  23. 1070 data141,8,212,142,7,212,140,254,207,169,65:rem_wellenf.s2
  24. 1080 data141,11,212,76,18,196,162,0,189,0,201,157,250,207,232,224,3,208,245,24
  25. 1090 data173,138,196,105,3,141,138,196,144,7,174,139,196,232,142,139,196,96
  26. 1100 data32,204,196,169,0,234,141,18,212,173,250,207,174,251,207,172,252,207
  27. 1110 data141,15,212,142,14,212,140,253,207,240,40,169,17:rem_wellenf.s3
  28. 1120 data141,18,212,76,49,234,162,0,189,0,204,157,250,207,232,224,3,208,245,24
  29. 1130 data173,207,196,105,3,141,207,196,144,7,174,208,196,232,142,208,196,96
  30. 1140 data169,0,141,69,196,141,138,196,141,207,196,169,198,141,70,196,169,201
  31. 1150 data141,139,196,169,204,141,208,196,169,64,141,255,207,141,254,207,141,253
  32. 1160 fori=50176to50464:readq:pokei,q:next:remsys50441
  33. 1170 data207,76,49,234,120,169,0,141,20,3,169,196,141,21,3,88,96
  34. 1180 rem **** stimme 1 ****
  35. 2000 data7493,64,6676,64,7493,64,8411,32,8911,32,10002,64,8911,128,8411,64
  36. 2010 data8411,64,10002,64,10002,64,7493,64,8411,64,6676,128,5947,64,5001,64
  37. 2020 data6676,64,7493,64,8411,64,8411,64,7493,128,0,64,8411,64,6676,64,7493,64
  38. 2030 data8411,32,8911,32,10002,64,8911,128,8411,64,8411,64,10002,64,10002,64
  39. 2040 data7493,64,8411,64,6676,128,6301,64,5001,64,6676,64,7493,64,8411,64
  40. 2050 data8911,64,8411,64,7493,64,6676,64,0,0
  41. 2999 i=50688
  42. 3000 forc=0to91step2:readq:readq1:pokei+2,q1:hi=int(q/256)
  43. 3001 lo=q-(hi*256):pokei,hi:pokei+1,lo:i=i+3:next
  44. 3010 rem **** stimme 2 :  ****
  45. 3020 data5001,64,5613,64,6301,64,6676,32,7493,32,8411,64,6676,64,7493,64,8411
  46. 3030 data64,6676,64,6301,64,6676,64,6301,64,6676,32,6301,32,5613,128,5001,64
  47. 3040 data6301,64,5001,64,5613,32,6301,32,6676,64,6676,64,6301,128,0,64,6301,64
  48. 3050 data6676,64,6301,32,5613,32,5001,64,8411,64,8411,64,7493,64,7072,64,6676
  49. 3060 data64,6301,64,6676,32,6301,32,5613,64,6301,64,6676,32,6301,32,5613,64
  50. 3070 data5001,64,5001,64,5001,32,5613,32,6301,64,6676,64,7072,64,6676,64,6301
  51. 3080 data64,6676,64,0,0
  52. 3999 i=51456
  53. 4000 forc=0to107step2:readq:readq1:pokei+2,q1:hi=int(q/256)
  54. 4001 lo=q-(hi*256):pokei,hi:pokei+1,lo
  55. 4002 i=i+3:next
  56. 4010 rem **** stimme 3 :  ****
  57. 4020 data3338,64,4455,64,4205,32,3764,32,3338,64,6676,64,5613,64,6301,64,6676
  58. 4030 data64,5613,64,4205,32,3746,32,4205,32,4455,32,5001,64,4205,64,5613,32
  59. 4040 data5001,32,4720,64,5001,64,4455,64,4205,64,3746,64,3338,32,3746,32,4205
  60. 4050 data32,4455,32,5001,128,0,64,4205,64,5613,64,5001,32,4455,32,4205,64
  61. 4060 data3338,64,3746,32,4205,32,4455,32,5001,32,5613,64,5613,64,5001,32,4455
  62. 4070 data32,4205,64,4720,64,5298,64,5613,32,5001,32,4720,64,5001,64,5001,32
  63. 4080 data4455,32,4205,32,4455,32,4205,32,3746,32,3338,64,5613,64,5001,32
  64. 4090 data4455,32,5001,64,3338,64,0,0
  65. 4999 i=52224
  66. 5000 forc=0to125step2:readq:readq1:pokei+2,q1:hi=int(q/256)
  67. 5001 lo=q-(hi*256):pokei,hi:pokei+1,lo:i=i+3:next
  68. 60000 new
  69. 60004 rem (c) 1985 steffen goebbels
  70. 60005 rem      alte heerstr.25
  71. 60006 rem        4179 weeze 1
  72.